home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue35 / refint / REFINT.ZIP / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1998-05-27  |  2.5 KB  |  105 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, DBTables, ExtCtrls, Grids, DBGrids, Menus, DBCtrls, Mask, Db,
  8.   RefInt;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     MainMenu1: TMainMenu;
  13.     Quit1: TMenuItem;
  14.     Panel4: TPanel;
  15.     Splitter2: TSplitter;
  16.     Panel3: TPanel;
  17.     Splitter1: TSplitter;
  18.     DBGTables: TDBGrid;
  19.     DBGFields: TDBGrid;
  20.     Panel5: TPanel;
  21.     Label1: TLabel;
  22.     CBDatabases: TComboBox;
  23.     DBGParentTables: TDBGrid;
  24.     Splitter3: TSplitter;
  25.     Integrity1: TMenuItem;
  26.     Clearall1: TMenuItem;
  27.     Setall1: TMenuItem;
  28.     Register1: TMenuItem;
  29.     DBGParentFields: TDBGrid;
  30.     RefInt1: TRefInt;
  31.     procedure FormCreate(Sender: TObject);
  32.     procedure CBDatabasesChange(Sender: TObject);
  33.     procedure Splitter1Moved(Sender: TObject);
  34.     procedure Splitter3Moved(Sender: TObject);
  35.     procedure Clearall1Click(Sender: TObject);
  36.     procedure Setall1Click(Sender: TObject);
  37.     procedure Register1Click(Sender: TObject);
  38.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  39.     procedure Quit1Click(Sender: TObject);
  40.   private
  41.   public
  42.   end;
  43.  
  44. var
  45.   Form1: TForm1;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. procedure TForm1.FormCreate(Sender: TObject);
  52. begin
  53.   Session.getDatabaseNames(CBDatabases.items);
  54.   if RefInt1.Active then
  55.     CBDatabases.ItemIndex:=CBDatabases.Items.IndexOf(RefInt1.AliasName);
  56. end;
  57.  
  58. procedure TForm1.CBDatabasesChange(Sender: TObject);
  59. begin
  60.   RefInt1.AliasName:=(Sender as TComboBox).text;
  61.   RefInt1.Active:=true;
  62. end;
  63.  
  64. procedure TForm1.Splitter1Moved(Sender: TObject);
  65. begin
  66.   DBGParentTables.Width:=DBGTables.Width;
  67. end;
  68.  
  69. procedure TForm1.Splitter3Moved(Sender: TObject);
  70. begin
  71.   DBGTables.Width:=DBGParentTables.Width;
  72. end;
  73.  
  74. procedure TForm1.Clearall1Click(Sender: TObject);
  75. begin
  76.   RefInt1.ClearAll;
  77. end;
  78.  
  79. procedure TForm1.Setall1Click(Sender: TObject);
  80. begin
  81.   if RefInt1.Changed then
  82.     RefInt1.SetAll
  83.   else
  84.     ShowMessage('Nothing to do !');
  85. end;
  86.  
  87. procedure TForm1.Register1Click(Sender: TObject);
  88. begin
  89.   RefInt1.Registration;
  90. end;
  91.  
  92. procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  93. begin
  94.   if RefInt1.Changed then
  95.   if messageDlg('Do you want to save your changes on database '+RefInt1.AliasName+' before closing ?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
  96.     RefInt1.SetAll;
  97. end;
  98.  
  99. procedure TForm1.Quit1Click(Sender: TObject);
  100. begin
  101.   close;
  102. end;
  103.  
  104. end.
  105.